home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
s-gikan2.maizuru-ct.ac.jp
/
s-gikan2.maizuru-ct.ac.jp.zip
/
s-gikan2.maizuru-ct.ac.jp
/
pub
/
old
/
ncvc350_install.exe
/
{app}
/
scripts
/
insert_space.pl
< prev
next >
Wrap
Perl Script
|
2004-04-01
|
702b
|
28 lines
#! /usr/bin/perl
# NCâfü[â^é╠âuâìâbâNè╘é╔âXâyü[âXé≡òtë┴é╖éΘâXâNâèâvâg #
# ex.G90G40G80 -> G90 G40 G80 #
# âuâìâbâNè╘é╔tab,âXâyü[âXé¬éóé¡é┬éáé┴é─éαéPâXâyü[âXé╔é╖éΘ #
$pre_file= $ARGV[0];
$out_file= $ARGV[1];
open(IN,$pre_file);
open(OUT,">$out_file");
while(<IN>){
if(!/^N?[0-9\s]*[\(\%]/){
$new_line= "";
while(/([^A-Z\s]*)[\s]*([A-Z]+[^A-Z\s]+)/){
($pre_line,$block,$_)= ($`.$1,$2,$');
$new_line= $new_line.$pre_line." ".$block;
}
if(substr($new_line,0,1) eq " "){ $new_line= substr($new_line,1); }
$_= $new_line.$_;
}
elsif(/^(N[0-9]*)[\s]*([\(\%])/){ $_= $1." ".$2.$'; }
print OUT;
}
close(OUT);
close(IN);